Univers Mac Interactif 42/Univers Mac Interactif - Issue 42.iso/>interactif/Démos Voyager/SNHOUSE.DIR/00147_Script_MOVIE SCRIPT

Text File | 1994-11-01 | 1KB | 58 lines

on startmovie
  set the stagecolor to 0
  --  speakToUs --raises voice volume
  -- silenceMe
end

on LoadBones
  repeat with x= 1 to 36
    preloadCast "B" & x
  end repeat
end

--on silenceMe
--  set the sound of cast 138 to 0
--  set the sound of cast 139 to 0
--  set the sound of cast 140 to 0
--  set the sound of cast 38 to 0
--  set the sound of cast 44 to 0
--  set the sound of cast 54 to 0
--end
--on speakToUs
--  set the sound of cast 138 to 255
--  set the sound of cast 139 to 255
--  set the sound of cast 140 to 255
--  set the sound of cast 38 to 255
--  set the sound of cast 44 to 255
--  set the sound of cast 54 to 255
--end

on enterframe
  cursor 200
end

on waitSound chan
  cursor 200
  if soundbusy(chan) = 1 then go the frame
end

on waitQT chan
  cursor 200
  if the movieRate of sprite chan =1 then go the frame
end

on waiting theTicks
  repeat while (theTicks>= the timer)
    go the frame
  end repeat
end

on KeyDown
  global autoplaying
  put 0 into autoplaying
  sound stop 1
  sound stop 2
  unloadcast
  play done
end